home *** CD-ROM | disk | FTP | other *** search
/ ETO Development Tools 4 / ETO Development Tools 4.iso / Essentials / MacApp Documentation / MacApp.TECH$ Archives / 1988 / Jan 88 / Setting max Zoom window size 1⁄ < prev    next >
Encoding:
Text File  |  1991-03-06  |  1.2 KB  |  47 lines  |  [TEXT/GEOL]
  1. Item    0132253                         13-Jan-88        12:00
  2.  
  3. From:   V0344                           Siemens Gammasonics, Henk Koopmans
  4.  
  5. To:     N0231                           TRW, ESG, Donald  Carlile, ASC
  6.  
  7. cc:     MACAPP$                         MacApp Interest List
  8.  
  9. Sub:    Setting max Zoom window size
  10.  
  11. Dear Don,
  12.     In response to your wish list request of 18-Dec-87 for TWindow.fResizelimits
  13. to limit the maximum size of a window for the Zoombox. Something you should
  14. read is the information about a window's Standard state and User state in
  15. Inside Macintosh volume 4 pages 8 and 49-51. I implemented the maximum size
  16. my window could be zoomed to with the following; (Kudos to Chris Knepper from
  17. MACDTS for helping me get "a handle on it")
  18.  
  19. PROCEDURE TPDocument.DoMakeWindows; OVERRIDE;
  20. TYPE
  21.         pWStateData = ^WStateData;
  22.         hWStateData = ^pWStateData;
  23. VAR
  24.         maxRect:        Rect;
  25. BEGIN
  26. aPWindow := fPView.MakeOwnWindow(TRUE);  {TRUE for scrollable dialog}
  27.  
  28. IF aPWindow <> NIL THEN
  29.     BEGIN
  30.     {Set maximum size window can be sized or zoomed.}
  31.     .
  32.     .
  33.     .
  34.     maxRect:= ...;
  35.  
  36.     hWStateData(DialogPeek(fPView.fDialogPtr)^.window.dataHandle)^^.stdState:=
  37. maxRect;
  38.     END;
  39.  
  40. END;
  41.  
  42. Have fun!
  43.  
  44. Edith Wickliff, Siemens Gammasonics
  45.  
  46.  
  47.